﻿Module Module1

    Sub Main()

        Dim num, opcion As String
        Dim cont As Integer
        Dim num1, num2 As Decimal

        Console.WriteLine("Introduce números positivos y te diré cual es el mayor de todos ellos ")

        Do

            Do
                cont += 1
                Console.Write("Nº" &cont & " : ")
                num = Console.ReadLine()



            Loop Until IsNumeric(num) AndAlso Decimal.Parse(num)
            num1 = Decimal.Parse(num)

            Console.Write("Otro número <S/N>: ")
            opcion = Console.ReadLine()


            If (num1 > num2) Then

                num2 = num1

            End If






        Loop Until opcion.ToUpper = "N"


        Console.WriteLine("El mayor de todos es: " & num2)
       
        Console.ReadKey()

        





















    End Sub

End Module
